perm filename KILLER.SAI[1,BGB] blob sn#001232 filedate 1972-11-03 generic text, type T, neo UTF8
00100	BEGIN	"KILLER"
00102	
00104		INTEGER FLG,CNT,BRK,EOF,Z;
00106		OPEN(1,"DSK",0,1,0,CNT,BRK,EOF);
00108		LOOKUP(1,"COUNT",FLG);
00110		CNT	←	120;
00112		Z	←	INTIN(1);
00114		RELEASE(1);
00116		OUTSTR("THE COUNT IS NOW "&CVS(Z)&"!"&13&10);
00118		OPEN(1,"DSK",0,0,1,0,0,0);
00120		ENTER(1,"COUNT",FLG);
00122		OUT(1,CVS(Z+1));
00124		RELEASE(1);
00126	
00200		CALL(0,"CTLV");
00300		PTOCHS(0,"K");
00400		PTOCHS(0,13);CALL(0,"SLEEP");CALL(0,"SLEEP");
00500		PTOCHS(0,"L");
00600		PTOCHS(0,13);CALL(0,"SLEEP");CALL(0,"SLEEP");
00700		PTOSTR(0,"G70/BGB");
00800		PTOCHS(0,13);CALL(0,"SLEEP");CALL(0,"SLEEP");
00900		CALL(0,"CTLV");
00950		PTOSTR(0,"RU KILLER
00975	");
01000	END	"KILLER";